/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Techniques / ShowClipWin / showClipWin

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 04 56 69 65 77 0b 73 68 | 6f 77 43 6c 69 70 57 69 |.View.sh|owClipWi|
|00000010| 6e 04 b9 02 9a 03 12 04 | 4e 61 6d 65 0b 73 68 6f |n.......|Name.sho|
|00000020| 77 43 6c 69 70 57 69 6e | 05 46 72 61 6d 65 01 30 |wClipWin|.Frame.0|
|00000030| 0c 48 61 73 42 61 63 6b | 43 6f 6c 6f 72 05 46 61 |.HasBack|Color.Fa|
|00000040| 6c 73 65 09 42 61 63 6b | 43 6f 6c 6f 72 08 31 36 |lse.Back|Color.16|
|00000050| 37 37 37 32 31 35 08 42 | 61 63 6b 64 72 6f 70 01 |777215.B|ackdrop.|
|00000060| 30 05 54 69 74 6c 65 0a | 43 6c 69 70 62 6f 61 72 |0.Title.|Clipboar|
|00000070| 64 3a 07 56 69 73 69 62 | 6c 65 04 54 72 75 65 08 |d:.Visib|le.True.|
|00000080| 43 6c 6f 73 65 42 6f 78 | 04 54 72 75 65 08 47 72 |CloseBox|.True.Gr|
|00000090| 6f 77 49 63 6f 6e 04 54 | 72 75 65 08 5a 6f 6f 6d |owIcon.T|rue.Zoom|
|000000a0| 49 63 6f 6e 04 54 72 75 | 65 0b 42 61 6c 6c 6f 6f |Icon.Tru|e.Balloo|
|000000b0| 6e 48 65 6c 70 00 09 50 | 6c 61 63 65 6d 65 6e 74 |nHelp..P|lacement|
|000000c0| 01 30 05 57 69 64 74 68 | 03 33 35 39 06 48 65 69 |.0.Width|.359.Hei|
|000000d0| 67 68 74 03 31 34 32 08 | 4d 69 6e 57 69 64 74 68 |ght.142.|MinWidth|
|000000e0| 02 36 34 09 4d 69 6e 48 | 65 69 67 68 74 02 36 34 |.64.MinH|eight.64|
|000000f0| 08 4d 61 78 57 69 64 74 | 68 05 33 32 30 30 30 09 |.MaxWidt|h.32000.|
|00000100| 4d 61 78 48 65 69 67 68 | 74 05 33 32 30 30 30 07 |MaxHeigh|t.32000.|
|00000110| 00 0b 73 68 6f 77 43 6c | 69 70 57 69 6e 94 01 06 |..showCl|ipWin...|
|00000120| 44 69 61 6c 6f 67 00 00 | 00 00 01 04 4f 70 65 6e |Dialog..|....Open|
|00000130| 06 0a 06 0a 0c 0a 53 75 | 62 20 4f 70 65 6e 28 29 |......Su|b Open()|
|00000140| 12 44 69 6d 20 67 20 41 | 73 20 43 6c 69 70 62 6f |.Dim g A|s Clipbo|
|00000150| 61 72 64 2e 67 20 3d 20 | 6e 65 77 20 43 6c 69 70 |ard.g = |new Clip|
|00000160| 62 6f 61 72 64 20 27 67 | 20 69 73 20 6e 6f 77 20 |board 'g| is now |
|00000170| 61 20 63 6c 69 70 62 6f | 61 72 64 20 6f 62 6a 65 |a clipbo|ard obje|
|00000180| 63 74 34 69 66 20 67 2e | 54 65 78 74 41 76 61 69 |ct4if g.|TextAvai|
|00000190| 6c 61 62 6c 65 20 74 68 | 65 6e 20 27 69 66 20 63 |lable th|en 'if c|
|000001a0| 6c 69 70 62 6f 61 72 64 | 20 63 6f 6e 74 61 69 6e |lipboard| contain|
|000001b0| 73 20 74 65 78 74 3a 29 | 45 64 69 74 46 69 65 6c |s text:)|EditFiel|
|000001c0| 64 31 2e 76 69 73 69 62 | 6c 65 20 3d 20 74 72 75 |d1.visib|le = tru|
|000001d0| 65 20 27 53 68 6f 77 20 | 45 64 69 74 46 69 65 6c |e 'Show |EditFiel|
|000001e0| 64 8d 01 45 64 69 74 46 | 69 65 6c 64 31 2e 74 65 |d..EditF|ield1.te|
|000001f0| 78 74 20 3d 20 67 2e 74 | 65 78 74 20 27 53 65 74 |xt = g.t|ext 'Set|
|00000200| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 74 68 65 | the tex|t of the|
|00000210| 20 65 64 69 74 46 69 65 | 6c 64 20 74 6f 20 74 68 | editFie|ld to th|
|00000220| 65 20 63 6c 69 70 62 6f | 61 72 64 20 74 65 78 74 |e clipbo|ard text|
|00000230| 80 01 65 6c 73 65 69 66 | 20 67 2e 50 69 63 74 75 |..elseif| g.Pictu|
|00000240| 72 65 41 76 61 69 6c 61 | 62 6c 65 20 74 68 65 6e |reAvaila|ble then|
|00000250| 20 27 69 66 20 63 6c 69 | 70 62 6f 61 72 64 20 63 | 'if cli|pboard c|
|00000260| 6f 6e 74 61 69 6e 73 20 | 61 20 70 69 63 74 75 72 |ontains |a pictur|
|00000270| 65 3a 2a 45 64 69 74 46 | 69 65 6c 64 31 2e 76 69 |e:*EditF|ield1.vi|
|00000280| 73 69 62 6c 65 20 3d 20 | 66 61 6c 73 65 20 27 48 |sible = |false 'H|
|00000290| 69 64 65 20 45 64 69 74 | 46 69 65 6c 64 2c 62 61 |ide Edit|Field,ba|
|000002a0| 63 6b 44 72 6f 70 20 3d | 20 67 2e 70 69 63 74 75 |ckDrop =| g.pictu|
|000002b0| 72 65 20 27 53 68 6f 77 | 20 63 6c 69 70 62 6f 61 |re 'Show| clipboa|
|000002c0| 72 64 20 70 69 63 74 75 | 72 65 06 65 6e 64 20 69 |rd pictu|re.end i|
|000002d0| 66 1f 67 2e 63 6c 6f 73 | 65 20 27 63 6c 6f 73 65 |f.g.clos|e 'close|
|000002e0| 20 63 6c 69 70 62 6f 61 | 72 64 20 6f 62 6a 65 63 | clipboa|rd objec|
|000002f0| 74 07 45 6e 64 20 53 75 | 62 00 00 01 07 00 00 b0 |t.End Su|b.......|
|00000300| 01 09 45 64 69 74 46 69 | 65 6c 64 00 00 00 00 01 |..EditFi|eld.....|
|00000310| 07 4b 65 79 44 6f 77 6e | 01 00 01 00 03 2a 46 75 |.KeyDown|.....*Fu|
|00000320| 6e 63 74 69 6f 6e 20 4b | 65 79 44 6f 77 6e 28 4b |nction K|eyDown(K|
|00000330| 65 79 20 41 73 20 53 74 | 72 69 6e 67 29 20 41 73 |ey As St|ring) As|
|00000340| 20 42 6f 6f 6c 65 61 6e | 00 0c 45 6e 64 20 46 75 | Boolean|..End Fu|
|00000350| 6e 63 74 69 6f 6e 00 00 | 01 09 45 64 69 74 46 69 |nction..|..EditFi|
|00000360| 65 6c 64 20 04 4e 61 6d | 65 0a 45 64 69 74 46 69 |eld .Nam|e.EditFi|
|00000370| 65 6c 64 31 05 49 6e 64 | 65 78 0b 2d 32 31 34 37 |eld1.Ind|ex.-2147|
|00000380| 34 38 33 36 34 38 0d 54 | 61 62 50 61 6e 65 6c 49 |483648.T|abPanelI|
|00000390| 6e 64 65 78 01 30 07 56 | 69 73 69 62 6c 65 05 46 |ndex.0.V|isible.F|
|000003a0| 61 6c 73 65 04 4c 65 66 | 74 02 2d 31 03 54 6f 70 |alse.Lef|t.-1.Top|
|000003b0| 02 2d 31 05 57 69 64 74 | 68 03 33 36 31 06 48 65 |.-1.Widt|h.361.He|
|000003c0| 69 67 68 74 03 31 32 39 | 0b 42 61 6c 6c 6f 6f 6e |ight.129|.Balloon|
|000003d0| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|000003e0| 6c 6c 6f 6f 6e 48 65 6c | 70 00 08 4c 6f 63 6b 4c |lloonHel|p..LockL|
|000003f0| 65 66 74 04 54 72 75 65 | 07 4c 6f 63 6b 54 6f 70 |eft.True|.LockTop|
|00000400| 04 54 72 75 65 09 4c 6f | 63 6b 52 69 67 68 74 04 |.True.Lo|ckRight.|
|00000410| 54 72 75 65 0a 4c 6f 63 | 6b 42 6f 74 74 6f 6d 04 |True.Loc|kBottom.|
|00000420| 54 72 75 65 08 54 65 78 | 74 46 6f 6e 74 06 47 65 |True.Tex|tFont.Ge|
|00000430| 6e 65 76 61 08 54 65 78 | 74 53 69 7a 65 01 39 04 |neva.Tex|tSize.9.|
|00000440| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00000450| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00000460| 65 05 46 61 6c 73 65 06 | 42 6f 72 64 65 72 04 54 |e.False.|Border.T|
|00000470| 72 75 65 09 4d 75 6c 74 | 69 4c 69 6e 65 04 54 72 |rue.Mult|iLine.Tr|
|00000480| 75 65 09 53 63 72 6f 6c | 6c 42 61 72 04 54 72 75 |ue.Scrol|lBar.Tru|
|00000490| 65 06 53 74 79 6c 65 64 | 05 46 61 6c 73 65 08 50 |e.Styled|.False.P|
|000004a0| 61 73 73 77 6f 72 64 05 | 46 61 6c 73 65 0c 55 73 |assword.|False.Us|
|000004b0| 65 46 6f 63 75 73 52 69 | 6e 67 04 54 72 75 65 08 |eFocusRi|ng.True.|
|000004c0| 52 65 61 64 4f 6e 6c 79 | 04 54 72 75 65 09 4c 69 |ReadOnly|.True.Li|
|000004d0| 6d 69 74 54 65 78 74 01 | 30 0a 41 63 63 65 70 74 |mitText.|0.Accept|
|000004e0| 54 61 62 73 05 46 61 6c | 73 65 09 54 65 78 74 43 |Tabs.Fal|se.TextC|
|000004f0| 6f 6c 6f 72 01 30 09 42 | 61 63 6b 43 6f 6c 6f 72 |olor.0.B|ackColor|
|00000500| 08 31 36 37 37 37 32 31 | 35 07 45 6e 61 62 6c 65 |.1677721|5.Enable|
|00000510| 64 04 54 72 75 65 04 54 | 65 78 74 00 00 00       |d.True.T|ext...  |
+--------+-------------------------+-------------------------+--------+--------+